home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 November / Chip_2004-11_cd1.bin / software / frigate / Frigate3_Lite_v25.exe / {app} / Addons / Schemes / Modula2.sch < prev    next >
Text File  |  2004-01-06  |  8KB  |  272 lines
  1. object TPersHolder
  2.   P.Extensions.Strings = (
  3.     'mod')
  4.   P.Name = 'Modula-2'
  5.   P.SyntaxBlocks = <
  6.     item
  7.       Name = 'Default'
  8.       CaseSensitive = True
  9.       FIText = 0
  10.       FIIntNum = 1
  11.       FIFloatNum = 2
  12.       FIHexNum = 3
  13.       UseComments = True
  14.       UseMultiLineComments = True
  15.       UseStrings = True
  16.       UseSingleLineStrings = True
  17.       UseNumbers = True
  18.       UseSuffixedNumbers = True
  19.       UseMultipleNumSuffixes = False
  20.       UseKeywords = True
  21.       BlockDelimiters = <>
  22.       MultiLineCommentDelimiters = <
  23.         item
  24.           FontID = 4
  25.           LeftDelimiter = '(*'
  26.           RightDelimiter = '*)'
  27.         end>
  28.       SingleLineStringDelimiters = <
  29.         item
  30.           FontID = 5
  31.           LeftDelimiter = '"'
  32.           RightDelimiter = '"'
  33.         end>
  34.       NumSuffixes = <
  35.         item
  36.           LeftDelimiter = 'X'
  37.         end
  38.         item
  39.           LeftDelimiter = 'L'
  40.         end>
  41.       KeywordSets = <
  42.         item
  43.           FontID = 6
  44.           Name = 'reserved'
  45.           Keywords =
  46.             'ARRAY,ASM,BEGIN,BOOLEAN,BY,CARDINAL,CASE,CHAR,CLASS,CONST,DEFINI' +
  47.             'TION,DESTROY,DIV,DO,ELSE,ELSIF,END,EXIT,EXPORT,FOR,FOREIGN,FROM,' +
  48.             'IF,IMPLEMENTATION,IMPORT,INHERIT,INIT,INLINE,INTEGER,LONGCARD,LO' +
  49.             'NGINT,LONGREAL,LOOP,MOD,MODULE,NIL,OF,POINTER,PROCEDURE,REAL,REC' +
  50.             'ORD,REPEAT,RETURN,SET,THEN,TO,TYPE,UNTIL,VAR,WHILE,WITH'
  51.         end>
  52.     end
  53.     item
  54.       Name = 'Assembler'
  55.       CaseSensitive = True
  56.       FIText = 7
  57.       FIIntNum = 8
  58.       FIFloatNum = 9
  59.       FIHexNum = 10
  60.       UseComments = True
  61.       UseMultiLineComments = True
  62.       UseStrings = True
  63.       UseSingleLineStrings = True
  64.       UseNumbers = True
  65.       UseSuffixedNumbers = True
  66.       UseMultipleNumSuffixes = False
  67.       UsePrefixedIdentifiers = True
  68.       UseKeywords = True
  69.       BlockDelimiters = <
  70.         item
  71.           LeftDelimiter = 'ASM'
  72.           RightDelimiter = 'END'
  73.         end>
  74.       MultiLineCommentDelimiters = <
  75.         item
  76.           FontID = 11
  77.           LeftDelimiter = '(*'
  78.           RightDelimiter = '*)'
  79.         end>
  80.       SingleLineStringDelimiters = <
  81.         item
  82.           FontID = 12
  83.           LeftDelimiter = '"'
  84.           RightDelimiter = '"'
  85.         end>
  86.       NumSuffixes = <
  87.         item
  88.           LeftDelimiter = 'X'
  89.         end
  90.         item
  91.           LeftDelimiter = 'L'
  92.         end>
  93.       IdentPrefixes = <
  94.         item
  95.           LeftDelimiter = '@'
  96.         end>
  97.       KeywordSets = <
  98.         item
  99.           FontID = 13
  100.           Name = 'OpCodes'
  101.           Keywords =
  102.             'AAA,AAD,AAM,AAS,ADC,ADD,AND,ARPL,BOUND,BSF,BSR,BSWAP,BT,BTC,BTR,' +
  103.             'BTS,CALL,CBW,CDQ,CLC,CLD,CLI,CLTS,CMC,CMP,CMPS,CMPSB,CMPSD,CMPSW' +
  104.             ',CMPXCHG,CWD,CWDE,DAA,DAS,DEC,DIV,ENTER,ESC,F2XM1,FABS,FADD,FADD' +
  105.             'P,FBLD,FBSTP,FCHS,FCLEX,FCOM,FCOMP,FCOMPP,FCOS,FDECSTP,FDISI,FDI' +
  106.             'V,FDIVP,FDIVR,FDIVRP,FENI,FFREE,FIADD,FICOM,FICOMP,FIDIV,FIDIVR,' +
  107.             'FILD,FIMUL,FINCSTP,FINIT,FIST,FISTP,FISUB,FISUBR,FLD,FLD1,FLDCW,' +
  108.             'FLDENV,FLDL2E,FLDL2T,FLDLG2,FLDLN2,FLDPI,FLDZ,FMUL,FMULP,FNCLEX,' +
  109.             'FNDISI,FNENI,FNINIT,FNOP,FNSAVE,FNSTCW,FNSTENV,FNSTSW,FPATAN,FPR' +
  110.             'EM,FPREM1,FPTAN,FRNDINT,FRSTOR,FSAVE,FSCALE,FSETPM,FSIN,FSINCOS,' +
  111.             'FSQRT,FST,FSTCW,FSTENV,FSTP,FSTSW,FSUB,FSUBP,FSUBR,FSUBRP,FTST,F' +
  112.             'UCOM,FUCOMP,FUCOMPP,FWAIT,FXAM,FXCH,FXTRACT,FYL2X,FYL2XP1,HLT,ID' +
  113.             'IV,IMUL,IN,INC,INSB,INSD,INSW,INT,INTO,INVD,INVLPG,IRET,IRETD,JA' +
  114.             ',JAE,JB,JBE,JC,JCXZ,JE,JECXZ,JG,JGE,JL,JLE,JMP,JNA,JNAE,JNB,JNBE' +
  115.             ',JNC,JNE,JNG,JNGE,JNL,JNLE,JNO,JNP,JNS,JNZ,JO,JP,JPE,JPO,JS,JZ,L' +
  116.             'AHF,LAR,LDS,LEA,LEAVE,LES,LFS,LGDT,LGS,LIDT,LLDT,LMSW,LOCK,LODS,' +
  117.             'LODSB,LODSD,LODSW,LOOP,LOOPD,LOOPDE,LOOPDNE,LOOPDNZ,LOOPDZ,LOOPE' +
  118.             ',LOOPNE,LOOPNZ,LOOPZ,LSL,LSS,LTR,MOV,MOVS,MOVSB,MOVSD,MOVSW,MOVS' +
  119.             'X,MOVZX,MUL,NEG,NOP,NOT,OR,OUT,OUTSB,OUTSD,OUTSW,POP,POPA,POPAD,' +
  120.             'POPF,POPFD,PUSH,PUSHA,PUSHAD,PUSHF,PUSHFD,RCL,RCR,REP,REPE,REPNE' +
  121.             ',REPNZ,REPZ,RET,RETF,RETN,ROL,ROR,SAHF,SAL,SAR,SBB,SCAS,SCASB,SC' +
  122.             'ASD,SCASW,SEGCS,SEGDS,SEGES,SEGFS,SEGGS,SEGSS,SETA,SETAE,SETB,SE' +
  123.             'TBE,SETC,SETE,SETG,SETGE,SETL,SETLE,SETNA,SETNAE,SETNB,SETNBE,SE' +
  124.             'TNC,SETNE,SETNG,SETNGE,SETNL,SETNLE,SETNO,SETNP,SETNS,SETNZ,SETO' +
  125.             ',SETP,SETPE,SETPO,SETS,SETZ,SGDT,SHL,SHLD,SHR,SHRD,SIDT,SLDT,SMS' +
  126.             'W,STC,STD,STI,STOS,STOSB,STOSD,STOSW,STR,SUB,TEST,VERR,VERW,WAIT' +
  127.             ',WBINVD,XADD,XCHG,XLAT,XOR'
  128.         end
  129.         item
  130.           FontID = 14
  131.           Name = 'Operands'
  132.           Keywords =
  133.             'AH,AL,AND,AX,BH,BL,BP,BX,BYTE,CH,CL,CS,CX,DH,DI,DL,DS,DWORD,DX,E' +
  134.             'AX,EBP,EBX,ECX,EDI,EDX,EIP,ES,ESI,ESP,FS,GS,HIGH,LOW,MOD,NOT,OFF' +
  135.             'SET,OR,PTR,QWORD,SHL,SHR,SI,SP,SS,ST,TBYTE,TYPE,WORD,XOR'
  136.         end
  137.         item
  138.           FontID = 15
  139.           Name = 'Directives'
  140.           Keywords = 'DB,DD,DW'
  141.         end>
  142.     end>
  143.   P.FontTable = <
  144.     item
  145.       FontID = 0
  146.       Font.Charset = DEFAULT_CHARSET
  147.       Font.Color = clBlack
  148.       Font.Height = -13
  149.       Font.Name = 'Courier New'
  150.       Font.Style = []
  151.     end
  152.     item
  153.       FontID = 1
  154.       Font.Charset = DEFAULT_CHARSET
  155.       Font.Color = clGreen
  156.       Font.Height = -13
  157.       Font.Name = 'Courier New'
  158.       Font.Style = []
  159.     end
  160.     item
  161.       FontID = 2
  162.       Font.Charset = DEFAULT_CHARSET
  163.       Font.Color = clGreen
  164.       Font.Height = -13
  165.       Font.Name = 'Courier New'
  166.       Font.Style = []
  167.     end
  168.     item
  169.       FontID = 3
  170.       Font.Charset = DEFAULT_CHARSET
  171.       Font.Color = clGreen
  172.       Font.Height = -13
  173.       Font.Name = 'Courier New'
  174.       Font.Style = []
  175.     end
  176.     item
  177.       FontID = 4
  178.       Font.Charset = DEFAULT_CHARSET
  179.       Font.Color = clGray
  180.       Font.Height = -13
  181.       Font.Name = 'Courier New'
  182.       Font.Style = [fsItalic]
  183.     end
  184.     item
  185.       FontID = 5
  186.       Font.Charset = DEFAULT_CHARSET
  187.       Font.Color = clMaroon
  188.       Font.Height = -13
  189.       Font.Name = 'Courier New'
  190.       Font.Style = []
  191.     end
  192.     item
  193.       FontID = 6
  194.       Font.Charset = DEFAULT_CHARSET
  195.       Font.Color = clBlue
  196.       Font.Height = -13
  197.       Font.Name = 'Courier New'
  198.       Font.Style = [fsBold]
  199.     end
  200.     item
  201.       FontID = 7
  202.       Font.Charset = DEFAULT_CHARSET
  203.       Font.Color = clGreen
  204.       Font.Height = -13
  205.       Font.Name = 'Courier New'
  206.       Font.Style = []
  207.     end
  208.     item
  209.       FontID = 8
  210.       Font.Charset = DEFAULT_CHARSET
  211.       Font.Color = clGreen
  212.       Font.Height = -13
  213.       Font.Name = 'Courier New'
  214.       Font.Style = [fsBold]
  215.     end
  216.     item
  217.       FontID = 9
  218.       Font.Charset = DEFAULT_CHARSET
  219.       Font.Color = clGreen
  220.       Font.Height = -13
  221.       Font.Name = 'Courier New'
  222.       Font.Style = [fsBold]
  223.     end
  224.     item
  225.       FontID = 10
  226.       Font.Charset = DEFAULT_CHARSET
  227.       Font.Color = clGreen
  228.       Font.Height = -13
  229.       Font.Name = 'Courier New'
  230.       Font.Style = [fsBold]
  231.     end
  232.     item
  233.       FontID = 11
  234.       Font.Charset = DEFAULT_CHARSET
  235.       Font.Color = clGray
  236.       Font.Height = -13
  237.       Font.Name = 'Courier New'
  238.       Font.Style = [fsItalic]
  239.     end
  240.     item
  241.       FontID = 12
  242.       Font.Charset = DEFAULT_CHARSET
  243.       Font.Color = clMaroon
  244.       Font.Height = -13
  245.       Font.Name = 'Courier New'
  246.       Font.Style = []
  247.     end
  248.     item
  249.       FontID = 13
  250.       Font.Charset = DEFAULT_CHARSET
  251.       Font.Color = clGreen
  252.       Font.Height = -13
  253.       Font.Name = 'Courier New'
  254.       Font.Style = [fsBold]
  255.     end
  256.     item
  257.       FontID = 14
  258.       Font.Charset = DEFAULT_CHARSET
  259.       Font.Color = clGreen
  260.       Font.Height = -13
  261.       Font.Name = 'Courier New'
  262.       Font.Style = [fsItalic]
  263.     end
  264.     item
  265.       FontID = 15
  266.       Font.Charset = DEFAULT_CHARSET
  267.       Font.Color = clGreen
  268.       Font.Height = -13
  269.       Font.Name = 'Courier New'
  270.       Font.Style = [fsBold]
  271.     end>
  272. end